home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD018b.dsk / READ MULT. OF FLASH CARDS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  897b  |  36 lines
  1. 4  TEXT : SPEED= 255
  2. 5  ONERR  GOTO 100
  3. 6 F$ = "FLASH CARDS"
  4. 8 R = 0:I = 0:J = 0:P = 0
  5. 10 D$ =  CHR$(4): PRINT D$"NOMON C,I,O": HOME 
  6. 15  GOSUB 200
  7. 16  PRINT 
  8. 40  PRINT D$"READ"F$
  9. 50  INPUT R,I,J,P
  10. 60  PRINT D$
  11. 70  PRINT "#"R"   "I" X "J" =  "P
  12. 75  PRINT 
  13. 80  GOTO 40
  14. 90  END 
  15. 95 :
  16. 100  PRINT D$"CLOSE"F$
  17. 101  SPEED= 255: PRINT D$
  18. 102  PRINT :: PRINT 
  19. 104  IF  PEEK(222) = 6  THEN  FLASH : VTAB 12: HTAB 6: PRINT "NO FILE FOUND!": NORMAL 
  20. 105  VTAB 22: INVERSE : PRINT " DO YOU WISH TO READ ANY MORE SCORES? "
  21. 107  NORMAL : VTAB 22: HTAB 39: GET A$
  22. 110  IF A$ = "Y"  THEN  GOTO 4
  23. 120  HOME : IF A$ = "N"  THEN 140
  24. 130  GOTO 105
  25. 140  END 
  26. 150 :
  27. 200  VTAB 2: PRINT " READS MULTIPLICATION FLASH CARDS"
  28. 205  VTAB 4
  29. 208  INVERSE 
  30. 209  HTAB 2
  31. 210  PRINT " PLEASE TYPE YOUR NAME! ";: NORMAL : INPUT " ";NA$
  32. 220  IF NA$ = ""  THEN  GOTO 200
  33. 230 F$ = F$ +" * " +NA$
  34. 246  PRINT 
  35. 248  SPEED= 200
  36. 250  RETURN